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EDTSCHMDELLIN = delete Lines 5 -Sep- 1384 $3733 38 ene Bliss-32 V4.0-74 Page 1 E 

i-Sep- 984 EDT. SRCICHMDELLIN.BLI; (1) | V 

: 1 1 ZTITLE "EDTSCHMDELLIN = delete Lines’ : 
3 § § MODULE EDTSCHMDELLIN ( ! Delete Lines 3 
H Z ee = *v04-000' ! File: CHMDELLIN.BLI Edit: JBS1009 H 
; = | : 
: 5 005} BEGIN | 
: ? 009? ! PITITITITILILITILI LILI LLL LLL LLL LLL LLL iLL itil) | : 
5 'e a : 
; 9 B28 1 !® (COPYRIGHT (c) 1978, 1980, 1982, 1984 * : 
; 10 010 1 !* DIGITAL EQUIPMENT EORPORATION, MAYNARD. MASSACHUSETTS. * | $ 
3 13 oid ! :* ALL RIGHTS RESERVED. * | : 
; el * 3 
; ig $018 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corte * F 
; 14 0014 1 !* ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE * : 
: 15 0015 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTI eF THIS SOFTWARE OR T * : 
H 16 8018 1 !' COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * $ 
3 17 001 1 !@ OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * ; 
3 13 dt : * TRANSFERRED. * 3 
; : a 3 
; st B05t 1 !@ THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE » : 
; 1 0021 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * : 
; $$ Oss : :* CORPORATION. : : 
3 is 3 
; e4 0024 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * : 
: 25 0025 1 !* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 3 
; $§ 00 § 1 Ie * : 
eae 0027 1 I * : 
3 28 0028 1 Vee RRR RARER RARER AREA AEE E AAA AEA AAAS | é 
: 9 0029 1! : 
i § 0080} | : 
.- 3 0031 1 !++ - 3 
; 3 ait 1 ' FACILITY: EDT -- The DEC Standard Editor ’ 
es 0033 1: 3 
: 34 0034 1 | ABSTRACT: | : 
; 2 0035 1: Z : 
; 3 te ; This module deletes Lines of text (change mode). 3 
5 4 sits , ENVIRONMENT: Runs at any access mode - AST reentrant F 
; rs re ! AUTHOR: Bob Kushlis, CREATION DATE: Unknown 3 
: ri Bog 1 ' MODIFIED BY: | : 
: 4 0043 1! : : 
; (446 044 1 1-001 - Original. DJS 04-Feb-1981. This routine was created b | 3 
3; 6 «665 045 1! extracti ng the routine DELETE_LINES from module CHANGE.BLI. 3 
; 46 0046 1 ! 1-002 - peguler fe ag t 25=F eb-1981 : 
s 667 0047 1! 1-003 - An aoe ule name. -Mar-198 3 
5 48 0048 1 ! 1-004 - e ASSERT e., Oras 01-Jun-1981 3 
> 49 0049 | i 1-008 = EDISSSEL -RNGPOS has 3 values. JBS 02-Jun-1981 : 
; & 0050 1 | 1-006 - Put in a check for control C so th Jane 1968 message will flash : 
. 0051 1! during a long CUT {Sommene, JBS 13-Jan-198 3 
: 26 003¢ 1 ' 1-007 - New screen update logic. JBS 13-Sep- : 
me B82 1 ! 1-008 - Remove the unused reference to EDTS mR LNCHG. JBS 27-Dec-1982 3 
3 2 Bnet ' i 1-009 - Add a parameter to EDTSSCOMB_LN. JBS 28-Dec-1982 3 
: 56 0056 1 ; 
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EDTSCHMDELLIN EDTSCHMDELLIN = delete Lines 14.32 =1984 23:49: AX-11 Bliss-32 V4.0-74 
Oe Declarations 1278 08- 1 3be $3 '53:38 EDT. SRCJCHMDELLIN.BLI; 
3 38 34 } XSBTTL "Declarations' 
: 60 1 | TABLE OF CONTENTS: 
- 01! 
cr 061 1 
; o? 38 REQUIRE ‘EDTSRC: TRAROUNAM'; 
4 65 5 § 1 FORWARD ROUTINE 
; ? B28? : EDTSSDEL_TXTLN : NOVALUE; ' Delete whole Lines of text 
; 668 505 1! 
: ) 2 1 ! INCLUDE FILES: 
; 0 1! 
= 2a B208 1 
3 7 E44 1 REQUIRE ‘EDTSRC:EDTREQ'; 
WERE 644 1 
3 74 0645 1! 
3 75 Boe8 1 ! MACROS: 
; 0647 1! 
co Ve 0648 1! NONE 
: 78 0649 1! 
3 79 0650 1 ! EQUATED SYMBOLS: 
: 80 0651 1! 
; 6«8f 0636 1! NONE 
 @ 0653 1! 
3 8 0654 1 ! OWN STORAGE: 
: 84 0655 1! 
3 85 0656 1! NONE 
;s 0657 1! 
3 87 0658 1 ! EXTERNAL REFERENCES: 
; 8 0659 1! 
3 89 0660 1! In the routine 
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1 ZSBTTL "EDTSSDEL_TXTLN = delete Lines' 


: 3 1 ; 
; s 1 GLOBAL ROUTINE EDTSSDEL_TXTLN ( ! Delete Lines 5 
3 1 NUM_LINES, ! Number of Lines to delete ; 
3 38 0665 1 ND_ ' Place to stop $ 
3 38 068 1 ) :"NOVALUE = 3 
3 667 1 ‘ 
s 668 1 !+4+ ; 
re Pe 8082 1 ! FUNCTIONAL DESCRIPTION: | : 
; 100 670 1! : 
3; 101 671 1! This routine deletes text on NUM_LINES Lines Fe END Bos on the ‘ 
; 196 ore . | current Line at EDTS$A_LN_PTR and going to the END_POS F 
; 10 675 1! on the Last Line. 3 
: 104 0674 1! : 
s 105 0675 1 ! FORMAL PARAMETERS: | 3 
; 106 B978 1! : 
; 107 0677 1 ! NUM_LINES Number of Lines to delete 3 
: 108 0678 1! 5 
; 109 0679 1! END_POS Place to stop on last line 3 
; 110 0680 1! : 
s 111 0681 1 ! IMPLICIT INPUTS: ; 
3 iX¢ bone 1! 3 
; 0683 1! EDTSSA_LN_PTR 3 
> (114 0684 1! EDT$$L_SEC_L ; 
3 195 0685 1! EDTS$T_LN_BuF $ 
; 116 0686 1 ! EDTSS$A_LN_END 3 
: 117 0687 1! EDT$$G_LN abe’ 3 
; (118 0688 1! EDTSS$L_LNO | : 
3; «(119 0689 1! | 3 
: 120 0690 1 ! IMPLICIT OUTPUTS: : 
s te 0691 1! ; 
3 \s¢ 0692 1! NONE 3 
s Ye 06935 1! $ 
> 126 0694 1 ! ROUTINE VALUE: ‘ 
Ve: 0695 1! 3 
: 126 0696 1! NONE 3 
s 127 0697 1! : 
s 12 0698 1 ! SIDE EFFECTS: : 
; 9 4 0699 1! ; 
° 1 0 070 1 ! NONE | 3 
3; «131 0701 1! 3 
: 13 0702 1 !-- | 3 
; 13 0703 1 3 
3 if 0704 BEGIN 3 
: 135 0705 3 
3; «136 9706 exten, ROUTINE 3 
s ts7 070 EDTSSDEL_CHS : NOVALUE, ! Delete part of the current Line : 
3; «138 0708 2 EDTSSCOMB_LN : NOVALUE, ' Combine the current Line with the one immediately above it | : 
3 139 0709 EDT$$CS_DOQN ' Move down a Line 3 
3; 140 0710 EDT TS$GET_TXTLN, ' Get current Line in Line buffer 3 
3 «6141 0711 EDTSSSAV_LN : NOVALUE, ' Save a Line in the auxiliary buffer : 
3 re | Orig EDTS$$SC_DELLN, ' Delete Lines from screen : 
3 (14 071 EDT TSSDEC. CURLN, ' Delete a Line from buffer : 
3 144 Brie EDTSSCHK_CC; ! Check for a control C 3 
3: 145 715 3 
; 146 o7ig EXTERNAL . : 
; «(14 071 EDTSS$T_LN_BUF , ! Current Line buffer : 
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104-000 EDTSSDEL_TXTLN = delete Lines 1228681382 $3:33:38 EDT. SRCJCHMDELLIN.BLI; ” (3) 
71 EDTSSA_LN_END, ! End of current Line pointer 
71 EDT$$G_LN_LEN, ' Length of current Line 
f EDTSSA_LN_PTR; ! Current character pointer 
LOCAL 


+ 
Handle the first Line. 


- 
LC = .EDTSSA_LN_END; | 
IF (.NUM_LINES EQL 1) THEN LC = .END_POS; 

, EDTSSDEL_CHS (.EDTSSALLNLPTR, .LC); 

! Now, if there are more, loop though the middle ones. | 
IF (.NUM_LINES GTR 1) | 
THEN 

BEGIN 

EDTSSCS_DWN (); 

INCR I FROM 3 TO .NUM_LINES DO 

- BEGIN 

i We check for a control C here, not because we wish to terminate 

! the process if a control C is typed but only to make sure the 

‘working’ message flashes during a long CUT command. 

* EDTSSCHK_CC (); 

Delete the entire Line. 

EDTSS$SAV_LN (EDT$S$T_LN_BUF, .EDT$$G_LN_LEN); 


EDTSSDEL-CURLN (); 
EDTSSGET_TXTUN (); 
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88 + 
: } Handle the last Line. 
: 1 i EDTSSDEL_CHS (.EDTSSA_LN_PTR, .END_POS); 
3 8 And combine the various fragments. | 
9 65 EDTSSCOMB_LN (1); 
66 END; 
68 END; ! of routine EDTSSDEL_TXTLN | 
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Routine Base: 


' <BLF /PAGE> 


121 bytes, 
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0769 
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; Routine Size: 


EDTSCHMDELLIN 
v04-000 


; Lines/CPU Min: 
: Lexemes/CPU-Min: 


tion. Complete 
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CHMDELLIN = de lete Lines 15-Sep -1984 t $3: 249:3 Ax-11 Ol ieee ge V4.0-742 
SDEL_TXTLN = delete Lines 1h-8ep 1984 12:22:2 EDT.SRCIJCHMDELLIN.BLI;1 
! END ! of module EDT$SCHMDELCHR 
0 ELUDOM 
PSECT SUMMARY 
Bytes Attributes 
121 NOVEC,NOWRT, RD, EXE, SHR, LCL, REL, CON, PIC,ALIGN(2) 
Library Statistics 
onerneiee Symbols -------- Pages Processing 
Total Loaded Percent Mapped Time 
T.SRCJEDT.L32;1 377 0 0 40 00:00.2 
T.SRCIPSECTS.L32;1 2 1 50 7 00:00.1 
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